1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
500 POKE53280,3:POKE53281,3:POKE646,0
505 PRINT"[147]       INSTRUCTIONS?  [Y] OR [N]":GOSUB760
510 GETR$:IFR$<>"Y"ANDR$<>"N"THEN510
515 IFR$="N"THEN575
520 PRINT"[147]             INSTRUCTIONS [146]"
525 PRINT"   PLEASE READ THIS TO THE STUDENT":GOSUB760:FORT=1TO1000:NEXT
530 PRINT"[144]   * WHEN A NUMBER APPEARS, TAP
535 [153]"     THE  SPACE WAIT BAR THAT NUMBER
540 PRINT"     OF TIMES.":FORT=1TO1000:NEXT
545 PRINT"   * A SET OF BLOCKS MATCHING
550 [153]"     THE NUMBER DISPLAYED WILL
555 PRINT"     ASSIST IN COUNTING.
560 [129]T[178]1[164]2000:[130]:[141]760
565 [153]"       PRESS  SPACE WAIT BAR TO PLAY
570 GETR$:IFR$<>CHR$(32)THEN570
575 PRINT"[147]    GET READY TO TAP OUT THE NUMBERS!
580 [129]TM[178]1[164]3000:[130]
585 [137]1000
699 :
700 [143] <YES>
705 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
710 [151]54296,15:[151]54277,42:[151]54278,250
715 [151]54276,23:[151]54273,23:[151]54272,191
720 [129]TM[178]1[164]160:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
725 [151]54296,0:[142]
730 [143] <N0>
735 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
740 [151]54296,15:[151]54277,18:[151]54278,242
745 [151]54276,33:[151]54273,4:[151]54272,48
750 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
755 [151]54296,0:[142]
760 [143] <BLIP>
765 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
770 [151]54296,6:[151]54277,42:[151]54278,250
775 [151]54276,23:[151]54273,23:[151]54272,191
780 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
785 [151]54296,0:[142]
800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,9
801 [153]"     A TPUG EDUCATIONAL PROGRAM
802 PRINT"           FOR C64 COMPUTERS
803 [153]"             KINDERGARTEN ":[129]T[178]1[164]1000:[130]
804 [153]"                                        WAIT";
805 [153]"                                        WAIT";
806 [153]"             COUNT TO TEN               WAIT";
807 [153]"                                        WAIT";
808 [153]"                                        WAIT":[141]760:[129]T[178]1[164]1000:[130]
812 [137]500
835 [129]TM[178]1[164]1000:[130]:[141]760
837 [151]UN,0:[153][200](UD$,24);"PRESS <SPACE> BAR TO CONTINUEWAIT"
840 [161]UI$:[139]UI$[179][177]" "[167]840
845 [142]
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]206
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]"                                      "
909 [142]
910 [141]900:[153]"LOAD":[153]"CLOSE"
920 [137]800:[143]  GOSUB800:GOTO500
950 [129]TM[178]1[164]400:[130]:[142]
952 [129]TM[178]1[164]1000:[130]:[142]
1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
1100 UH[178]1:[141]46000:[141]50010
1105 [141]46500:V[178]17:[141]47000:[141]45000
1200 [141]62000
1201 :
2100 [141]46000:[141]50020
2105 [141]46500
2110 V[178]11:[141]47000:[141]45000
2115 [141]46500:V[178]25:[141]47000:[141]45000
2200 [141]62000
3100 [141]46000:[141]50030
3105 [141]46500
3110 V[178]6:[141]47000:[141]45000
3115 [141]46500:V[178]17:[141]47000:[141]45000
3120 [141]46500:V[178]28:[141]47000:[141]45000
3200 [141]62000
4100 [141]46000:[141]50040
4105 [141]46500:V[178]2:[141]47000:[141]45000
4110 [141]46500:V[178]12:[141]47000:[141]45000
4115 [141]46500:V[178]22:[141]47000:[141]45000
4120 [141]46500:V[178]32:[141]47000:[141]45000
4200 [141]62000
5100 [141]46000:[141]50050
5105 [141]46500:V[178]1:[141]47000:[141]45000
5110 [141]46500:V[178]9:[141]47000:[141]45000
5115 [141]46500:V[178]17:[141]47000:[141]45000
5120 [141]46500:V[178]25:[141]47000:[141]45000
5125 [141]46500:V[178]33:[141]47000:[141]45000
5200 [141]62000
6100 [141]46000:[141]50060
6105 [141]46500:V[178]6:[141]47000:[141]45000
6110 [141]46500:V[178]17:[141]47000:[141]45000
6115 [141]46500:V[178]28:[141]47000:[141]45000
6120 [141]48000:V[178]6:[141]47000:[141]45000
6125 [141]48000:V[178]17:[141]47000:[141]45000
6130 [141]48000:V[178]28:[141]47000:[141]45000
6200 [141]62000
7100 [141]46000:[141]50070
7105 [141]46500:V[178]2:[141]47000:[141]45000
7110 [141]46500:V[178]12:[141]47000:[141]45000
7115 [141]46500:V[178]22:[141]47000:[141]45000
7120 [141]46500:V[178]32:[141]47000:[141]45000
7125 [141]48000:V[178]6:[141]47000:[141]45000
7130 [141]48000:V[178]17:[141]47000:[141]45000
7135 [141]48000:V[178]28:[141]47000:[141]45000
7200 [141]62000
8100 [141]46000:[141]50080
8105 [141]46500:V[178]2:[141]47000:[141]45000
8110 [141]46500:V[178]12:[141]47000:[141]45000
8115 [141]46500:V[178]22:[141]47000:[141]45000
8120 [141]46500:V[178]32:[141]47000:[141]45000
8125 [141]48000:V[178]2:[141]47000:[141]45000
8130 [141]48000:V[178]12:[141]47000:[141]45000
8135 [141]48000:V[178]22:[141]47000:[141]45000
8140 [141]48000:V[178]32:[141]47000:[141]45000
8200 [141]62000
9100 [141]46000:[141]50090
9105 [141]46500:V[178]1:[141]47000:[141]45000
9110 [141]46500:V[178]9:[141]47000:[141]45000
9115 [141]46500:V[178]17:[141]47000:[141]45000
9120 [141]46500:V[178]25:[141]47000:[141]45000
9125 [141]46500:V[178]33:[141]47000:[141]45000
9130 [141]48000:V[178]2:[141]47000:[141]45000
9135 [141]48000:V[178]12:[141]47000:[141]45000
9140 [141]48000:V[178]22:[141]47000:[141]45000
9145 [141]48000:V[178]33:[141]47000:[141]45000
9200 [141]62000
10100 [153]"LOAD":[129]I[178]1[164]14:[153]"";:[130]:[141]50010:[153]"":[129]I[178]1[164]20
10102 [153]"";:[130]:[141]50100
10105 [141]46500:V[178]1:[141]47000:[141]45000
10110 [141]46500:V[178]9:[141]47000:[141]45000
10115 [141]46500:V[178]17:[141]47000:[141]45000
10120 [141]46500:V[178]25:[141]47000:[141]45000
10125 [141]46500:V[178]33:[141]47000:[141]45000
10130 [141]48000:V[178]1:[141]47000:[141]45000
10135 [141]48000:V[178]9:[141]47000:[141]45000
10140 [141]48000:V[178]17:[141]47000:[141]45000
10145 [141]48000:V[178]25:[141]47000:[141]45000
10150 [141]48000:V[178]33:[141]47000:[141]45000
20000 [129]T[178]1[164]1500:[130]
20010 [153]"LOAD     VERY GOOD!":[141]700::[129]T[178]1[164]1000:[130]:[137]63000
45000 [153]"(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)";
45002 [153]"CMDCMDCMDCMDCMDCMDONONONSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(";
45004 [153]"CMDCMDCMDCMDCMDCMDONONON      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMDWAIT";
45006 [153]"ONONON";
45010 [161]G$:[139]G$[179][177][199](32)[167]45000
45012 [142]
46000 [153]"LOAD":[129]I[178]1[164]17:[153]"";:[130]:[142]
46500 [153]"":[129]I[178]1[164]14:[153]"";:[130]:[142]
47000 [129]I[178]1[164]V:[153]"";:[130]:[142]
48000 [153]"":[129]I[178]1[164]20:[153]"";:[130]:[142]
50010 [153]"STEP CMD CMD CMD CMD CMD CMD CMD CMD CMD CMD CMDCMD   WAIT"
50015 [142]
50020 [153]"(null)ONCMD ONCMDSTEPWAITSTEPONCMDSTEP   (null)CMDWAIT(null)(null)CMD CMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEP";
50022 [153]"CMDCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD      WAIT"
50025 [142]
50030 [153]"(null)ONCMD ONCMDSTEPWAITSTEPONCMDSTEP  (null)(null)CMDCMDWAIT(null) CMD CMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEP(null)CMDCMDWAIT(null)(null)(null)CMD CMD ";
50032 [153]"CMDWAITSTEPCMDCMDSTEPWAITCMDSTEPCMDCMD CMDCMD CMDCMDWAIT(null)ONCMD(null)WAITCMDCMD(null)ONCMD ONCMDSTEPWAIT"
50035 [142]
50040 [153]"STEPCMDWAITSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD CMD     ";
50042 [153]"ONCMDCMD ONCMD CMD CMD WAIT"
50045 [142]
50050 [153]" ONCMD CMDCMD CMDCMD CMDCMD CMDCMD CMDCMD CMD CMD CMD CMD CMD CMD WAITSTEPONCMDSTEP   (null)CMD CMDCMDWAIT(null) ";
50052 [153]"CMD CMD CMD CMDCMDSTEPWAITSTEPCMDCMD CMDCMD CMDCMD CMDCMD WAITCMDCMD(null)ON(null)CMDCMD ONCMD WAIT"
50055 [142]
50060 [153]"STEPCMD CMDCMDSTEPCMDCMDSTEP WAITSTEPCMDCMDSTEPCMDCMD CMDCMDSTEPCMDCMDSTEP WAITSTEPCMDCMDSTEPCMDCMD CMDCMDSTEPCMD     (null)CMDCMDWAIT(null)";
50062 [153]" CMD CMD CMDCMDSTEP CMDWAITSTEPCMDCMD CMDCMD CMDCMD CMDCMD CMDCMDWAIT(null)ON(null)CMDCMD ONCMD ONCMD ONCMD WAITSTEP"
50065 [142]
50070 [153]" ONCMD      CMD CMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD CMD";
50072 [153]" "
50075 [142]
50080 [153]"STEP  (null)CMDWAIT(null)(null)CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMD (null)CMDWAIT(null)(null)CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMDCMD ";
50082 [153]"CMDCMDWAIT(null)ONCMD(null)CMDCMDWAIT(null)ONCMD ONCMD ONCMDSTEPWAITSTEPONCMDSTEP ONCMD CMDCMDWAIT(null)ONCMD(null)CMDCMDWAIT(null)CMDON ONCMD ONCMDSTEPWAITSTEPONCMDSTEPWAIT"
50085 [142]
50090 [153]"STEP    (null)CMDCMDWAIT(null) CMD CMD CMD CMDCMDSTEP CMDCMD CMDCMD  CMDCMD CMDCMD CMDCMD CMDCMDWAIT(null)ON(null)CMDCMD CMDON CMDON CMDON WAITSTEP";
50092 [153]"STEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEP"
50095 [142]
50100 [153]"STEP  (null)(null)CMDCMDWAIT(null) CMD CMD CMD CMD CMD CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMDCMD CMDCMDWAIT(null)";
50102 [153]"ONCMD(null)CMDCMDWAIT(null)ONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONWAITSTEPCMDCMDSTEPWAIT"
50105 [142]
60000 [153]""
62000 [141]700:[129]TM[178]1[164]2000:[130]
62005 [142]
63000 [153]"LOAD                WOW!!! ":[141]700:[129]T[178]1[164]1000:[130]
63010 [153]"            DID YOU HAVE FUN?":[141]760:[129]TM[178]1[164]1000:[130]
63020 [153]"            THAT WAS GREAT!!!":[141]700:[129]T[178]1[164]2000:[130]
63030 [141]835
63100 [153]"LOAD  WHAT DO YOU WISH TO DO?
63110 PRINT"  PRESS  P [146] TO PLAY AGAIN
63120 [153]"  OR
63130 PRINT"  PRESS  M [146] TO RETURN TO  MENU [146]
63140 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]63140
63150 [139]R$[178]"P"[167][140]:[137]800
63160 [151]631,13:[151]198,2
63170 [153]"LOAD  RETURNING TO  MENU WAIT
63180 LOAD"MENU",8
63185 RUN
63190 END
63500 REM DERIVED FROM COMMODORE ONTARIO          EDUCATION PROJECT 1983
63510 REM SHRUNK - ED VANDERZEEUW 1989
63520 REM UPDATED - BILL CUMBERLAND 1989